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1.0 



/SetCountDTsys =1 
^set DiaOreached=truey 
Yi=YDia 



IFYi<Y(i-l) 
lSETi = i+1 



IFyi>YDia 
SETCountDTSys=0 
YDia =Yi 



1.1 



IF CountDTSys>DTMinSy^ 
Set FindDia = Faise 



IF Xdia> Xsis 

SET Find Dia = true 

SET Find5ys = true 



1.2 



If CountDT5ys<=DTMa5v^ys 
SETi=i+1 



IF CountDT5ys>DTMax5ys 
SET Find DIA = False 
SET FindSys = False 



(J 



1.3 



IF XDia<xsys 
SET.Findy1mln=true 
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IF dtdicCase2> 

DTMAX_MINY1_DIC 

SET Findyl MaxPostDic=True 

SET FinDic=False 
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